home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 85 / 085.d81 / plan boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  32 lines
  1. 100 de=peek(186):ifdv<8thendv=8
  2. 110 gosub130
  3. 120 goto290
  4. 130 print"[147]":poke53280,0:poke53281,0:iffthenreturn
  5. 140 poke214,10:print"[145]";
  6. 150 print"[159][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223][154][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]";
  7. 160 fori=1to12:print"[159][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][154][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223]";:next:print""
  8. 170 fori=217to242:pokei,peek(i)or128:next
  9. 180 poke214,12:print"[145]"tab(2)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  10. 190 fori=1to7:printtab(2)"[155]                                    [146][223]":next
  11. 200 printtab(2)"[152][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146][223]"
  12. 210 print"[169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][154][223]"
  13. 220 poke214,14:print"[145][155]";
  14. 230 fori=1to5:reada$:gosub240:next:goto250
  15. 240 printspc(20-len(a$)/2)""a$:a$="":return
  16. 250 poke214,24:print"[145]"spc(13)"[158][204] [207] [193] [196] [201] [206] [199]":return
  17. 260 data"[212][160][200][160][197] [160] [208] [204] [193] [206] [206] [197] [210]","by [194]arbara [211]chulak"
  18. 270 data"[214]1.0 [208]ublished on [204][207][193][196][211][212][193][210] #85","[211]ubscriptions 1-800-831-2694"
  19. 280 data"[195]opyright ([195]) 1991 [211]oftdisk"
  20. 290 poke214,7:print:print"[153]             [204]oading [205][204]..."
  21. 300 sys57812"psb font",de,0:poke780,0:poke781,0:poke782,40:sys65493
  22. 310 sys57812"reader 8000",de,0:poke780,0:poke781,0:poke782,128:sys65493
  23. 320 poke53272,27
  24. 330 sys57812"i-menu $c800",de,0:poke780,0:poke781,0:poke782,200:sys65493
  25. 340 poke214,7:print:print"[153]           [204]oading [208]rogram..."
  26. 350 sys57812"plan.o",de,0:poke780,0:poke781,0:poke782,192:sys65493
  27. 360 print"[144]load"chr$(34)"plan"chr$(34)","de":"
  28. 370 print"run:"
  29. 380 poke43,1:poke44,48:poke12288,0
  30. 390 poke631,13:poke632,13:poke633,13:poke198,3
  31. 400 new
  32.